home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / tclX-6.4 / wishx.tcl < prev   
Encoding:
Text File  |  1992-12-17  |  856 b   |  25 lines
  1. # wish.tcl --
  2. #
  3. # This script is invoked by the "wish" program whenever it starts up.
  4. # It invokes initialization scripts for Tcl and Tk, then does a few
  5. # wish-specific things like setting the window geometry, if one was
  6. # specified.
  7. #
  8. # $Header: /user6/ouster/wish/scripts/RCS/wish.tcl,v 1.1 92/03/06 09:40:56 ouster Exp $ SPRITE (Berkeley)
  9. #
  10. # Copyright 1992 Regents of the University of California
  11. # Permission to use, copy, modify, and distribute this
  12. # software and its documentation for any purpose and without
  13. # fee is hereby granted, provided that this copyright
  14. # notice appears in all copies.  The University of California
  15. # makes no representations about the suitability of this
  16. # software for any purpose.  It is provided "as is" without
  17. # express or implied warranty.
  18. #
  19.  
  20. load tk.tcl
  21.  
  22. if [info exists geometry] {
  23.     wm geometry . $geometry
  24. }
  25.